inherited crdNorm: TcrdNorm
  Left = 930
  Top = 683
  VertScrollBar.Range = 0
  AutoSize = True
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  BorderStyle = bsDialog
  Caption = #1044#1086#1073#1072#1074#1083#1077#1085#1080#1077'/'#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#1085#1086#1088#1084
  ClientHeight = 284
  ClientWidth = 342
  Constraints.MinHeight = 285
  Constraints.MinWidth = 350
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 257
    Width = 342
    Align = alTop
    TabOrder = 3
    DesignSize = (
      342
      27)
    inherited BitBtn1: TBitBtn
      Left = 141
    end
    inherited BitBtn2: TBitBtn
      Left = 243
    end
  end
  inherited ToolBar1: TToolBar
    Width = 342
    Height = 25
    EdgeBorders = [ebTop, ebBottom]
    inherited ToolButton2: TToolButton
      Visible = False
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 75
    Width = 342
    Height = 60
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 48
      Top = 8
      Width = 114
      Height = 13
      Alignment = taRightJustify
      Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072' '#1076#1077#1081#1089#1090#1074#1080#1103
    end
    object gbNormDay: TGroupBox
      Left = 0
      Top = 25
      Width = 342
      Height = 35
      Align = alBottom
      Caption = ' '#1055#1077#1088#1080#1086#1076' '#1085#1086#1088#1084#1099' '
      TabOrder = 1
      object rbMonthNorm: TRadioButton
        Left = 52
        Top = 15
        Width = 113
        Height = 17
        Caption = #1055#1086#1084#1077#1089#1103#1095#1085#1072#1103
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object rbDayNorm: TRadioButton
        Left = 196
        Top = 15
        Width = 113
        Height = 17
        Caption = #1055#1086#1076#1085#1077#1074#1085#1072#1103
        TabOrder = 1
      end
    end
    object dtpBDate: TDBDateTimeEditEh
      Left = 172
      Top = 5
      Width = 89
      Height = 19
      AlwaysShowBorder = True
      EditButtons = <>
      Flat = True
      Kind = dtkDateEh
      TabOrder = 0
      Visible = True
    end
  end
  object pInfo: TPanel [3]
    Left = 0
    Top = 25
    Width = 342
    Height = 50
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    object Label10: TLabel
      Left = 7
      Top = 8
      Width = 47
      Height = 13
      Caption = #1059#1089#1083#1091#1075#1072':'
    end
    object lSrvName: TLabel
      Left = 82
      Top = 8
      Width = 254
      Height = 13
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 7
      Top = 28
      Width = 72
      Height = 13
      Caption = #1055#1086#1089#1090#1072#1074#1097#1080#1082':'
    end
    object lSuppName: TLabel
      Left = 82
      Top = 28
      Width = 254
      Height = 13
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
  end
  object GroupBox2: TGroupBox [4]
    Left = 0
    Top = 135
    Width = 342
    Height = 122
    Align = alTop
    Caption = ' '#1053#1086#1088#1084#1072' '#1087#1086' '#1089#1095#1077#1090#1095#1080#1082#1091' '
    TabOrder = 2
    object Label5: TLabel
      Left = 88
      Top = 20
      Width = 78
      Height = 13
      Alignment = taRightJustify
      Caption = #1053#1072' 1-'#1075#1086' '#1078#1080#1083#1100#1094#1072
    end
    object Label6: TLabel
      Left = 88
      Top = 44
      Width = 78
      Height = 13
      Alignment = taRightJustify
      Caption = #1053#1072' 2-'#1093' '#1078#1080#1083#1100#1094#1086#1074
    end
    object Label7: TLabel
      Left = 88
      Top = 68
      Width = 78
      Height = 13
      Alignment = taRightJustify
      Caption = #1053#1072' 3-'#1093' '#1078#1080#1083#1100#1094#1086#1074
    end
    object Label9: TLabel
      Left = 93
      Top = 95
      Width = 73
      Height = 13
      Alignment = taRightJustify
      Caption = #1053#1072' 4-'#1093' '#1080' '#1073#1086#1083#1077#1077
    end
    object DBEditEh4: TDBEditEh
      Left = 172
      Top = 20
      Width = 89
      Height = 19
      AlwaysShowBorder = True
      DataField = 'NORM'
      DataSource = dscNorm0M
      EditButtons = <>
      Flat = True
      TabOrder = 0
      Visible = True
    end
    object DBEditEh5: TDBEditEh
      Left = 172
      Top = 44
      Width = 89
      Height = 19
      AlwaysShowBorder = True
      DataField = 'NORM'
      DataSource = dscNorm1M
      EditButtons = <>
      Flat = True
      TabOrder = 1
      Visible = True
    end
    object DBEditEh6: TDBEditEh
      Left = 172
      Top = 68
      Width = 89
      Height = 19
      AlwaysShowBorder = True
      DataField = 'NORM'
      DataSource = dscNorm2M
      EditButtons = <>
      Flat = True
      TabOrder = 2
      Visible = True
    end
    object DBEditEh8: TDBEditEh
      Left = 172
      Top = 92
      Width = 89
      Height = 19
      AlwaysShowBorder = True
      DataField = 'NORM'
      DataSource = dscNorm3M
      EditButtons = <>
      Flat = True
      TabOrder = 3
      Visible = True
    end
  end
  inherited ActionList1: TActionList
    Images = MAIN.ImageList
    Left = 24
    Top = 152
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'crdNorm'
    StoredProps.Strings = (
      '<P>.Left'
      '<P>.Top')
  end
  object trNorms: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 28
    Top = 212
  end
  object dsNorm0M: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE RNORMS'
      'SET '
      '    NORM = :NORM'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO RNORMS('
      '    SERVICE_ID,'
      '    SUPPLIER_ID,'
      '    NORM,'
      '    BDATE,'
      '    SEQ,'
      '    NORM_DAY'
      ')'
      'VALUES('
      '    :SERVICE_ID,'
      '    :SUPPLIER_ID,'
      '    :NORM,'
      '    :BDATE,'
      '    1,'
      '    :NORM_DAY'
      ')')
    RefreshSQL.Strings = (
      ''
      '    ')
    SelectSQL.Strings = (
      'select rt.*'
      'from rnorms rt'
      'where rt.service_id = :service_id'
      'and rt.supplier_id = :supplier_id'
      'and rt.bdate = :bdate'
      'and rt.seq = 1')
    AllowedUpdateKinds = [ukModify, ukInsert]
    Transaction = trNorms
    Database = MAINDM.pMainDatabase
    Left = 312
    Top = 120
    object dsNorm0MID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsNorm0MSERVICE_ID: TFIBIntegerField
      FieldName = 'SERVICE_ID'
    end
    object dsNorm0MSUPPLIER_ID: TFIBIntegerField
      FieldName = 'SUPPLIER_ID'
    end
    object dsNorm0MBDATE: TFIBDateField
      FieldName = 'BDATE'
    end
    object dsNorm0MSEQ: TFIBSmallIntField
      FieldName = 'SEQ'
    end
    object dsNorm0MNORM_DAY: TFIBSmallIntField
      FieldName = 'NORM_DAY'
    end
    object dsNorm0MNORM: TFIBFloatField
      FieldName = 'NORM'
    end
    object dsNorm0MCREATEDATE: TFIBDateField
      FieldName = 'CREATEDATE'
    end
    object dsNorm0MCREATEUSERID: TFIBIntegerField
      FieldName = 'CREATEUSERID'
    end
    object dsNorm0MMODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
    end
    object dsNorm0MMODIFYUSERID: TFIBIntegerField
      FieldName = 'MODIFYUSERID'
    end
  end
  object dscNorm0M: TDataSource
    DataSet = dsNorm0M
    Left = 392
    Top = 120
  end
  object dsNorm1M: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE RNORMS'
      'SET '
      '    NORM = :NORM'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO RNORMS('
      '    SERVICE_ID,'
      '    SUPPLIER_ID,'
      '    NORM,'
      '    BDATE,'
      '    SEQ,'
      '    NORM_DAY'
      ')'
      'VALUES('
      '    :SERVICE_ID,'
      '    :SUPPLIER_ID,'
      '    :NORM,'
      '    :BDATE,'
      '    2,'
      '    :NORM_DAY'
      ')')
    RefreshSQL.Strings = (
      ''
      '    ')
    SelectSQL.Strings = (
      'select rt.*'
      'from rnorms rt'
      'where rt.service_id = :service_id'
      'and rt.supplier_id = :supplier_id'
      'and rt.bdate = :bdate'
      'and rt.seq = 2')
    AllowedUpdateKinds = [ukModify, ukInsert]
    Transaction = trNorms
    Database = MAINDM.pMainDatabase
    Left = 312
    Top = 148
    object dsNorm1MID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsNorm1MSERVICE_ID: TFIBIntegerField
      FieldName = 'SERVICE_ID'
    end
    object dsNorm1MSUPPLIER_ID: TFIBIntegerField
      FieldName = 'SUPPLIER_ID'
    end
    object dsNorm1MBDATE: TFIBDateField
      FieldName = 'BDATE'
    end
    object dsNorm1MSEQ: TFIBSmallIntField
      FieldName = 'SEQ'
    end
    object dsNorm1MNORM_DAY: TFIBSmallIntField
      FieldName = 'NORM_DAY'
    end
    object dsNorm1MNORM: TFIBFloatField
      FieldName = 'NORM'
    end
    object dsNorm1MCREATEDATE: TFIBDateField
      FieldName = 'CREATEDATE'
    end
    object dsNorm1MCREATEUSERID: TFIBIntegerField
      FieldName = 'CREATEUSERID'
    end
    object dsNorm1MMODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
    end
    object dsNorm1MMODIFYUSERID: TFIBIntegerField
      FieldName = 'MODIFYUSERID'
    end
  end
  object dscNorm1M: TDataSource
    DataSet = dsNorm1M
    Left = 392
    Top = 148
  end
  object dsNorm2M: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE RNORMS'
      'SET '
      '    NORM = :NORM'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO RNORMS('
      '    SERVICE_ID,'
      '    SUPPLIER_ID,'
      '    NORM,'
      '    BDATE,'
      '    SEQ,'
      '    NORM_DAY'
      ')'
      'VALUES('
      '    :SERVICE_ID,'
      '    :SUPPLIER_ID,'
      '    :NORM,'
      '    :BDATE,'
      '    3,'
      '    :NORM_DAY'
      ')')
    RefreshSQL.Strings = (
      ''
      '    ')
    SelectSQL.Strings = (
      'select rt.*'
      'from rnorms rt'
      'where rt.service_id = :service_id'
      'and rt.supplier_id = :supplier_id'
      'and rt.bdate = :bdate'
      'and rt.seq = 3')
    AllowedUpdateKinds = [ukModify, ukInsert]
    Transaction = trNorms
    Database = MAINDM.pMainDatabase
    Left = 312
    Top = 176
    object dsNorm2MID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsNorm2MSERVICE_ID: TFIBIntegerField
      FieldName = 'SERVICE_ID'
    end
    object dsNorm2MSUPPLIER_ID: TFIBIntegerField
      FieldName = 'SUPPLIER_ID'
    end
    object dsNorm2MBDATE: TFIBDateField
      FieldName = 'BDATE'
    end
    object dsNorm2MSEQ: TFIBSmallIntField
      FieldName = 'SEQ'
    end
    object dsNorm2MNORM_DAY: TFIBSmallIntField
      FieldName = 'NORM_DAY'
    end
    object dsNorm2MNORM: TFIBFloatField
      FieldName = 'NORM'
    end
    object dsNorm2MCREATEDATE: TFIBDateField
      FieldName = 'CREATEDATE'
    end
    object dsNorm2MCREATEUSERID: TFIBIntegerField
      FieldName = 'CREATEUSERID'
    end
    object dsNorm2MMODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
    end
    object dsNorm2MMODIFYUSERID: TFIBIntegerField
      FieldName = 'MODIFYUSERID'
    end
  end
  object dscNorm2M: TDataSource
    DataSet = dsNorm2M
    Left = 392
    Top = 176
  end
  object dsNorm3M: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE RNORMS'
      'SET '
      '    NORM = :NORM'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO RNORMS('
      '    SERVICE_ID,'
      '    SUPPLIER_ID,'
      '    NORM,'
      '    BDATE,'
      '    SEQ,'
      '    NORM_DAY'
      ')'
      'VALUES('
      '    :SERVICE_ID,'
      '    :SUPPLIER_ID,'
      '    :NORM,'
      '    :BDATE,'
      '    4,'
      '    :NORM_DAY'
      ')')
    RefreshSQL.Strings = (
      ''
      '    ')
    SelectSQL.Strings = (
      'select rt.*'
      'from rnorms rt'
      'where rt.service_id = :service_id'
      'and rt.supplier_id = :supplier_id'
      'and rt.bdate = :bdate'
      'and rt.seq = 4')
    AllowedUpdateKinds = [ukModify, ukInsert]
    Transaction = trNorms
    Database = MAINDM.pMainDatabase
    Left = 312
    Top = 204
    object dsNorm3MID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsNorm3MSERVICE_ID: TFIBIntegerField
      FieldName = 'SERVICE_ID'
    end
    object dsNorm3MSUPPLIER_ID: TFIBIntegerField
      FieldName = 'SUPPLIER_ID'
    end
    object dsNorm3MBDATE: TFIBDateField
      FieldName = 'BDATE'
    end
    object dsNorm3MSEQ: TFIBSmallIntField
      FieldName = 'SEQ'
    end
    object dsNorm3MNORM_DAY: TFIBSmallIntField
      FieldName = 'NORM_DAY'
    end
    object dsNorm3MNORM: TFIBFloatField
      FieldName = 'NORM'
    end
    object dsNorm3MCREATEDATE: TFIBDateField
      FieldName = 'CREATEDATE'
    end
    object dsNorm3MCREATEUSERID: TFIBIntegerField
      FieldName = 'CREATEUSERID'
    end
    object dsNorm3MMODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
    end
    object dsNorm3MMODIFYUSERID: TFIBIntegerField
      FieldName = 'MODIFYUSERID'
    end
  end
  object dscNorm3M: TDataSource
    DataSet = dsNorm3M
    Left = 392
    Top = 204
  end
end
